home *** CD-ROM | disk | FTP | other *** search
/ The Uninvited Press Kit / THE UNINVITED.iso / pc / program.dxr / Internal_27_Megabyte Counter.ls < prev    next >
Encoding:
Text File  |  2008-12-30  |  3.3 KB  |  103 lines
  1. global gphotolist, gImages, gMegs
  2.  
  3. on megaHandler
  4.   sort(gphotolist)
  5.   gMegs = 0
  6.   repeat with m = 1 to gphotolist.count
  7.     megaSize = getAt(gphotolist, m)
  8.     case megaSize of
  9.       "C01":
  10.         gMegs = gMegs + 10.59999999999999964
  11.       "C02":
  12.         gMegs = gMegs + 6.59999999999999964
  13.       "C03":
  14.         gMegs = gMegs + 6.79999999999999982
  15.       "C04":
  16.         gMegs = gMegs + 7.70000000000000018
  17.       "C05":
  18.         gMegs = gMegs + 8.40000000000000036
  19.       "C06":
  20.         gMegs = gMegs + 4.09999999999999964
  21.       "C07":
  22.         gMegs = gMegs + 7.79999999999999982
  23.       "C08":
  24.         gMegs = gMegs + 7.79999999999999982
  25.       "C09":
  26.         gMegs = gMegs + 3.39999999999999991
  27.       "C10":
  28.         gMegs = gMegs + 4.90000000000000036
  29.       "C11":
  30.         gMegs = gMegs + 7.70000000000000018
  31.       "C12":
  32.         gMegs = gMegs + 4.79999999999999982
  33.       "C13":
  34.         gMegs = gMegs + 5.09999999999999964
  35.       "C14":
  36.         gMegs = gMegs + 8.40000000000000036
  37.       "C15":
  38.         gMegs = gMegs + 4.5
  39.       "C16":
  40.         gMegs = gMegs + 5.5
  41.       "C17":
  42.         gMegs = gMegs + 9.80000000000000071
  43.       "C18":
  44.         gMegs = gMegs + 8.30000000000000071
  45.       "C19":
  46.         gMegs = gMegs + 4.40000000000000036
  47.       "C20":
  48.         gMegs = gMegs + 5.79999999999999982
  49.       "C21":
  50.         gMegs = gMegs + 5.29999999999999982
  51.       "C22":
  52.         gMegs = gMegs + 23.10000000000000142
  53.       "C23":
  54.         gMegs = gMegs + 22.69999999999999929
  55.       "C24":
  56.         gMegs = gMegs + 22.30000000000000071
  57.       "C25":
  58.         gMegs = gMegs + 8.0
  59.       "C26":
  60.         gMegs = gMegs + 3.10000000000000009
  61.       "C27":
  62.         gMegs = gMegs + 7.70000000000000018
  63.       "C28":
  64.         gMegs = gMegs + 3.10000000000000009
  65.       "C29":
  66.         gMegs = gMegs + 5.0
  67.       "C30":
  68.         gMegs = gMegs + 4.09999999999999964
  69.       "C31":
  70.         gMegs = gMegs + 5.90000000000000036
  71.       "C32":
  72.         gMegs = gMegs + 4.90000000000000036
  73.       "C33":
  74.         gMegs = gMegs + 5.40000000000000036
  75.       "C34":
  76.         gMegs = gMegs + 4.79999999999999982
  77.       "C35":
  78.         gMegs = gMegs + 5.70000000000000018
  79.       "C36":
  80.         gMegs = gMegs + 12.69999999999999929
  81.       "C37":
  82.         gMegs = gMegs + 5.59999999999999964
  83.       "C38":
  84.         gMegs = gMegs + 42.5
  85.       "C39":
  86.         gMegs = gMegs + 42.10000000000000142
  87.       "C40":
  88.         gMegs = gMegs + 42.29999999999999716
  89.     end case
  90.   end repeat
  91.   gImages = gphotolist.count
  92.   if gImages = 1 then
  93.     put "You have selected " & gImages & " image, which will take up approximately " & integer(gMegs) & " Megabytes of space on your hard drive." & RETURN & RETURN & "By default, a folder named 'THE UNINVITED Images' will be created on your desktop." & RETURN & RETURN & "If you would like to change the location of this folder, select the 'Change Folder Location' button below." into member "Save Text"
  94.   else
  95.     put "You have selected " & gImages & " images, which will take up approximately " & integer(gMegs) & " Megabytes of space on your hard drive." & RETURN & RETURN & "By default, a folder named 'THE UNINVITED Images' will be created on your desktop." & RETURN & RETURN & "If you would like to change the location of this folder, select the 'Change Folder Location' button below." into member "Save Text"
  96.   end if
  97. end
  98.  
  99. on exitFrame
  100.   megaHandler()
  101.   go(the frame)
  102. end
  103.